5 POKE53281,0:PRINTCHR$(142)"[147][154]FIRST DISK"
7 POKE198,0:WAIT198,1
10 PACE=0
20 MODE=1
30 SPEED=4
50 POKE1000,PACE
60 POKE1001,SPEED
70 POKE1002,MODE
1000 FORI=65TO80
1010 SYS57812"[129]PIC "+CHR$(I)+"*",8,1
1020 POKE780,0
1030 SYS65493
1500 IFPACE=0THENPOKE1000,RND(0)*254+1
2000 SYS4096*5
2500 POKE198,0
3000 FORJ=0TO500
3010 IFPEEK(198)AND1THEN3030
3020 NEXTJ
3030 NEXTI
3100 FORJ=0TO500
3110 IFPEEK(198)AND1THEN4000
3120 NEXTJ
3500 POKE198,0
4000 POKE53265,27
4010 POKE53270,200
4015 POKE53272,21
4020 POKE53281,0:PRINT"[147]NEXT DISK"
4030 POKE198,0:WAIT198,1
4040 RUN10